MIDIInNumOfDevices
(Property)
Purpose: Returns the number of MIDI-in devices available.
Syntax: IntVar = CtlName.MIDIInNumOfDevices.
Arguments: None.
Example:
'Fill a ComboBox with MIDI-In devices
Dim
intTemp
As
Integer
For
intTemp
=
0
To
SoundCard1.MIDIInNumOfDevices
____Combo1.AddItem
SoundCard1.MIDIInGetDeviceName (intTemp)
Next intTemp
Comments: MIDIInNumOfDevices is zerobased. Property is Read Only.
See Also:
MIDIInGetDeviceName
MIDIOutNumOfDevices
MIDIOutGetDeviceName